home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 04-08 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 04-08 (19xx)(Nordlicht)(DE)(PD).adf / intro.amos / intro.amosSourceCode < prev    next >
AMOS Source Code  |  1992-12-24  |  708b  |  23 lines
  1. Change Mouse 2 : Load "hyperball:Music.abk"
  2.    Screen Open 0,320,256,32,Lowres : Cls 0
  3.    Auto View Off : Music 1 : Unpack 5 To 0
  4.    Screen Display 0,130,300,,
  5. View : Auto View On 
  6.    For R=300 To 46 Step -1
  7.    Screen Display 0,130,R,,
  8.    Wait 2
  9.    Next R : XX=2
  10.    For X=80 To 230 : Sprite 1,X,100+X,1
  11.    Wait 3 : Next X : Gosub LOP
  12. PATRIK:
  13.    For X=63 To 0 Step -1 : Wait 2 : Volume X : Next X : Music Off 
  14.    Fade 1 : Run "hyperball:hyperball.AMOS"
  15. LOP:
  16.    Fade 1 : Wait 16
  17.    Unpack XX To 0 : Screen Clone 1 : Screen To Front 0
  18.    Rem set all colours in screen zero to black
  19.    For X=0 To 31 : Colour X,0 : Next X
  20.    View 
  21.    Fade 3 To 1 : Screen Close 1
  22.    Wait 520 : If XX=2 Then XX=4 : Goto LOP
  23. Return